home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / general / False.st < prev    next >
Text File  |  2000-02-13  |  370b  |  18 lines
  1. Class False :Boolean
  2. [
  3.    ifTrue: trueAlternativeBlock ifFalse: falseAlternativeBlock
  4.        ^ falseAlternativeBlock value
  5. |
  6.    ifFalse: falseAlternativeBlock ifTrue: trueAlternativeBlock
  7.        ^ falseAlternativeBlock value
  8. |
  9.    ifTrue: trueAlternativeBlock
  10.        ^ nil
  11. |
  12.    ifFalse: falseAlternativeBlock
  13.        ^ falseAlternativeBlock value
  14. |
  15.    not
  16.        ^ true
  17. ]
  18.